unit uOneDriveNew;

{$mode ObjFPC}{$H+}

interface

uses
  Classes, SysUtils, Forms, Controls, Graphics, Dialogs, StdCtrls, ExtCtrls,
  Spin;

type

  { TFmOneDriveNew }

  TFmOneDriveNew = class(TForm)
    BtnOneDriveTestConnect: TButton;
    BTOK: TButton;
    EDSpaceName: TEdit;
    EDSecretKey: TEdit;
    EDName: TEdit;
    EDAccessKey: TEdit;
    GroupBox1: TGroupBox;
    Label3: TLabel;
    lbAccessKey: TLabel;
    LBIP: TLabel;
    LBIP1: TLabel;
    Panel1: TPanel;
    RBRegionGlobal: TRadioButton;
    RBRegionUs: TRadioButton;
    RBRegionGermany: TRadioButton;
    RBRegionVnetGroup: TRadioButton;
    procedure BtnOneDriveTestConnectClick(Sender: TObject);
    procedure BtnQiNiuTestConnectClick(Sender: TObject);
    procedure BTOKClick(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure FormClick(Sender: TObject);
    procedure RadioGroup1Click(Sender: TObject);
  private

  public

  end;

var
  FmOneDriveNew: TFmOneDriveNew;

implementation

{$R *.lfm}

{ TFmOneDriveNew }


procedure TFmOneDriveNew.BtnQiNiuTestConnectClick(Sender: TObject);
begin

end;

procedure TFmOneDriveNew.BtnOneDriveTestConnectClick(Sender: TObject);
begin

end;

procedure TFmOneDriveNew.BTOKClick(Sender: TObject);
begin

end;

procedure TFmOneDriveNew.Button1Click(Sender: TObject);
begin

end;

procedure TFmOneDriveNew.FormClick(Sender: TObject);
begin

end;

procedure TFmOneDriveNew.RadioGroup1Click(Sender: TObject);
begin

end;


end.

